Rivalry_report
Nick Hedger
for (i in 1:length(unique(FRAME$trial))){ plot_observer(FRAME,1,i) }